Profile of (eval 319)[Sub/Quote.pm:3]

Filename	(eval 319)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 21 statements in 280µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	14µs	38µs	JSON::Schema::Modern::::BEGIN@7.170 JSON::Schema::Modern::BEGIN@7.170
1	1	1	9µs	26µs	Method::Generate::Accessor::_Generated::BEGIN@24.172
1	1	1	7µs	13µs	JSON::Schema::Modern::validate_content_schemas
1	1	1	5µs	5µs	Method::Generate::Accessor::_Generated::BEGIN@12.171

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $default_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$default_for_validate_5fcontent_5fschemas"}};
3	1	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	0s			my $isa_check_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$isa_check_for_validate_5fcontent_5fschemas"}};
6					package JSON::Schema::Modern;
7	2	66µs	2	62µs	# spent 38µs (14+24) within JSON::Schema::Modern::BEGIN@7.170 which was called: # once (14µs+24µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 38µs making 1 call to JSON::Schema::Modern::BEGIN@7.170 # spent 24µs making 1 call to warnings::unimport
8					# spent 13µs (7+6) within JSON::Schema::Modern::validate_content_schemas which was called: # once (7µs+6µs) by JSON::Schema::Modern::evaluate at line 357 of JSON/Schema/Modern.pm sub validate_content_schemas {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 5µs within Method::Generate::Accessor::_Generated::BEGIN@12.171 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	5µs			%^H = (
16					);
17	1	65µs	1	5µs	} # spent 5µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.171
18					# END quote_sub PRELUDE
19	1	0s			Carp::croak("validate_content_schemas is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"validate_content_schemas"} ?
21					$_[0]->{"validate_content_schemas"}
22	1	3µs			: do {
23	1	3µs	1	6µs	my $value = $default_for_validate_5fcontent_5fschemas->($_[0]); # spent 6µs making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:90]
24	5	128µs	2	43µs	# spent 26µs (9+17) within Method::Generate::Accessor::_Generated::BEGIN@24.172 which was called: # once (9µs+17µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_validate_5fcontent_5fschemas, "Bool", $value, "attribute_name","validate_content_schemas","attribute_step","isa check","mgaca","0","varname","\$self->{\"validate_content_schemas\"}"); $value }; # spent 26µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.172 # spent 17µs making 1 call to warnings::unimport
25	1	1µs			$_[0]->{"validate_content_schemas"} = $value
26					}
27					}
28	1	1µs			$$_UNQUOTED = \&validate_content_schemas;
29					}
30	1	6µs			1;
31
32					;